   1 .BIBLE QUIZ
   2 .BY B HENSEL
   3 I=0;J=0
   4 F=2
   5 :return ;clear ;T=0
   6 @(1)=I;@(2)=J
  10 &(9)=30;BC=190;FC=40
  20 &(0)=96;&(1)=96
  30 &(2)=7;&(3)=7
  40 clear ;CY=38
  50 print "    BIBLE QUIZ
  55 box -27,38,66,11,3
  62 CX=55;CY=35;print "ONE
  70 box 60,20,26,40,3
  72 box 60,30,26,1,3
  74 CX=55;CY=-9;print "TWO
  80 box 60,-24,26,40,3
  90 box 60,-14,26,1,3
  95 CY=20
 102 P=1;gosub 700
 104 P=2;gosub 700
 110 print " WHO SET FIRE TO
 120 print " THREE HUNDRED
 130 print " FOXES TAILS?
 135 print 
 140 print "    A. ADAM
 150 print "    B. RUTH
 160 print "    C. SAMSON
 170 print "    D. CAIN
 180 C=3
 200 P=0
 210 if TR(1)=1P=1;Y=35
 220 if TR(2)=1P=2;Y=-9
 230 if P=0goto 210
 235 box 60,Y,24,8,3
 240 for A=1to 500;next A
 245 box 60,Y,24,8,3
 250 A=1
 260 CY=-5-(Amul 8)
 265 box 60,Y,24,8,3
 270 print "  right 
 280 for B=1to 50
 290 if TR(P)=1goto 350
 300 next B
 302 box 60,Y,24,8,3
 305 CY=-5-(Amul 8);print "   "
 310 A=A+1
 320 if A>4A=1;T=T+1
 322 if T<5goto 260
 323 NT=10
 324 MU=49;MU=48;MU=48;MU=48;MU=48;T=0;P=P+1;if P=3P=1
 325 Y=35;if P=2Y=-9
 329 NT=3
 330 goto 260
 350 print 
 360 CY=-40
 365 NT=10
 366 Y=0
 367 if P=2Y=-44
 370 if A=Cgosub 500
 380 if A#Cgosub 600
 385 NT=3;for A=1to 1000;next A
 387 if @(P)=10gosub 3000
 390 goto 5000
 500 @(P)=@(P)+1
 510 gosub 700
 520 MU=49;gosub 595;MU=51;gosub 595;MU=53;gosub 595
 530 MU=56;gosub 595;MU=48;gosub 595;MU=53;gosub 595
 540 MU=56;gosub 595;MU=48;gosub 595;MU=48;gosub 595;MU=48;gosub 595;MU=48
 550 gosub 595
 595 box 60,20+Y,24,38,3
 599 return 
 600 if @(P)=0goto 650
 602 F=1
 610 E=@(P)mul 10+700
 620 gosub E
 630 F=2
 640 @(P)=@(P)-1
 650 gosub 595
 660 MU=34;MU=48;MU=48;MU=34;MU=48;MU=34;MU=34;MU=48;MU=48
 670 MU=36;MU=48;MU=35;MU=35;MU=48;MU=34;MU=34;MU=48;MU=33;MU=34;MU=48;MU=48
 675 CY=-5-(Amul 8);print "   ";CY=-5-(Cmul 8);print " right 
 699 return 
 700 Y=0;if P=2Y=-44
 710 if @(P)>0box 60,26+Y,5,5,F
 720 if @(P)>1box 60,18+Y,7,10,F
 730 if @(P)>2box 55,18+Y,2,10,F
 740 if @(P)>3box 66,18+Y,2,10,F
 750 if @(P)>4box 58,8+Y,2,10,F
 760 if @(P)>5box 63,8+Y,2,10,F
 770 if @(P)>6box 53,14+Y,2,2,F
 780 if @(P)>7box 68,14+Y,2,2,F
 790 if @(P)>8box 56,4+Y,2,2,F
 800 if @(P)>9box 65,4+Y,2,2,F
 830 return 
3000 box -20,-5,120,74,2
3010 CY=5;print "    THE WINNER IS:
3020 print 
3030 print "     PLAYER ",
3040 if P=1print "ONE"
3050 if P=2print "TWO"
3060 for A=1to 3000;next A
3070 I=0;J=0
5000 I=@(1);J=@(2)
5010 FC=BC;&(9)=50
5020 :input 
:return ;run  
